home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / sf40_a.arc / TEST.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-12-09  |  5.6 KB  |  172 lines
  1. 10   KEY OFF:CLS
  2. 11   SCREEN 1
  3. 12  CLS:A =0:FOR T=0 TO T:WR$(T)="":NEXT
  4. 13   COLOR 1,7
  5. 14  FOR T=0 TO 9
  6. 15  RANDOMIZE TIMER:L(T)=INT(RND*26)+1
  7. 16  TR=0
  8. 20  ON L(T) GOSUB 135,182,220,270,330,400,460,520,580,630,670,720,780,840,900,960,1020,1080,1140,2000,2060,3020,3080,4040,5000,5060
  9. 21  LOCATE 22,20:PRINT"PRESS THE LETTER      <ESC> FOR MENU"
  10. 25  K3$=INKEY$:IF K3$="" THEN 25
  11. 26  IF ASC(K3$)=27 THEN CHAIN "TEST1",,ALL
  12. 28  G(T)=ASC(K3$)-64:IF G(T)>26 OR G(T)<1 THEN 25
  13. 30  IF L(T)=G(T) THEN A= A +1:LOCATE 1,25:PRINT"CORRECT!":ON XX GOSUB 6050:FOR X= 0 TO 2000:NEXT:GOTO 50
  14. 35  TR=TR+1:IF TR=1 THEN LOCATE 3,10:PRINT"TRY AGAIN.":GOTO 25
  15. 40  LOCATE 5,25:PRINT"NO, IT'S "CHR$(L(T)+64): ON XX GOSUB 6080:GOSUB 7000:FOR X = 0 TO 2000:NEXT
  16. 50  NEXT
  17. 60  CLS:PRINT TAB(10)"YOUR SCORE = "A " OUT OF 10.":IF A <>10 THEN PRINT:PRINT TAB(10)"MISSED WERE:"
  18. 61  PRINT
  19. 65  FOR I=0 TO 9:PRINT TAB(10)WR$(I):NEXT
  20. 70  LOCATE 16,10:INPUT "PLAY AGAIN (Y/N)";AN$
  21. 80  IF AN$="Y" THEN 12
  22. 90  IF AN$="N" THEN CHAIN "TEST1",,ALL
  23. 100  GOTO 70
  24. 135  CLS:DRAW "S14"
  25. 170   A1$="U3H3U6E1R2D2G1L1H1F1R1E1U3E1R2D4G1L1H1F1R1E1U4E1R2D5G1L1H1F1R1E1"
  26. 172  A2$="U5E1R1F1D4G1L1H1F1R1E1F1H1U6R1F4D7G3D4"
  27. 175  A$=A1$+A2$
  28. 180  DRAW "C3":DRAW A$
  29. 181  RETURN
  30. 182  CLS:DRAW "S14"
  31. 185  B1$="U3H3U12E1R1F1D6U9E1R1F1D7U9E1R1F1D8U8E1R1F1D10"
  32. 186  B2$="R3L5F2R1D3U3L1H2R5F2D4G3D4"
  33. 190  B$=B1$+B2$
  34. 200  DRAW "C3":DRAW B$
  35. 205  RETURN
  36. 220  CLS:DRAW "S14"
  37. 230  C1$="U3H3U6E2R2F2D1G1H1F1E1U1H2U1E1R1F2D1G1E1U1H2E1R1F3D2G1L1H1F1R1E1U2H1F0R1F2D1L2G1L1G1D2"
  38. 240   C2$="R1F1R1E1U2R1F1D3G3D3"
  39. 245   C$=C1$+C2$
  40. 250  DRAW "C3":DRAW C$
  41. 260  RETURN
  42. 270  CLS:DRAW "S14"
  43. 280  D1$="U2H5U2E1R2D1F1R1E1U2H1L2G1D1L2H1U1E3R4F2G1E1U7E1R1F1D8F1D6G1D4"
  44. 290   D2$="          "
  45. 300   D$=D1$+D2$
  46. 310  DRAW "C3":DRAW D$
  47. 320  RETURN
  48. 330  CLS:DRAW "S14"
  49. 340   E1$="U3H3U6E1R2D2G1L1H1F1R1E1U3E1R2D4G1L1H1F1R1E1U4E1R2D5G1L1H1F1R1E1"
  50. 350  E2$="U5E1R1F1D4G1L1H1F1R1E1F2L7F2R1L1H2R7D4G3D3"
  51. 360   E$=E1$+E2$
  52. 370  DRAW "C3":DRAW E$
  53. 390  RETURN
  54. 400  CLS:DRAW "S14"
  55. 410   F1$="U1H1U3H4U2E2R1D1G1D1F1U2E2R1D1G1D2F1U3E3R1D2G1D2F1E3R2F2D1L3G1D2F1R1"
  56. 420  F2$="E1U2R2D3G3L1G2
  57. 430   F$=F1$+F2$
  58. 440  DRAW "C3":DRAW F$
  59. 450  RETURN
  60. 460  CLS:DRAW "S14"
  61. 470    G$="U2H2U1H1L3H1U2R4E1U1H1L4H1U2R9  F6D3G2D3
  62. 500  DRAW "C3":DRAW G$
  63. 510  RETURN
  64. 520  CLS:DRAW "S14"
  65. 530    H$="U3H3R2E1U1L3D2U2R3E1U2L5D1F2H1R2L2U1U1L5H1U1R8L7H1U1E1R11F5G1L5G1D2F1R2L2H1U2E1R5E1F2D3G2D2
  66. 560  DRAW "C3":DRAW H$
  67. 570  RETURN
  68. 580  CLS:DRAW "S14"
  69. 590   I1$="U3H3U10E1R1F1D4E1R2D4G1L1H1U2D2F1R1E1U4E1R2D5G1L1H1F1R1E1
  70. 600  I2$="U4E1R1F1D3G1L1H1F1R1E1U1F2L7F2R1L1H2R7D4G3D2"
  71. 605   I$=I1$+I2$
  72. 610  DRAW "C0":DRAW "M 150,100":DRAW "C3":DRAW I$
  73. 620  RETURN
  74. 630  CLS:DRAW "S14"
  75. 631   I1$="U3H3U10E1R1F1D4E1R2D4G1L1H1U2D2F1R1E1U4E1R2D5G1L1H1F1R1E1
  76. 632  I2$="U4E1R1F1D3G1L1H1F1R1E1U1F2L7F2R1L1H2R7D4G3D2"
  77. 633   I$=I1$+I2$
  78. 635   DRAW "C0M150,100C3XI$;":GOSUB 9000:DRAW "C0M150,100XI$;":DRAW "M 150,150":DRAW "C3":DRAW I$:GOSUB 9000:DRAW "C0":DRAW "M 150,150":DRAW I$
  79. 640  DRAW "M 200,150":DRAW "C3":DRAW I$:GOSUB 9000:DRAW "C0":DRAW "M 200,150":DRAW I$
  80. 650  DRAW "M150,100C3":DRAW I$
  81. 660  RETURN
  82. 670  CLS:DRAW "S14"
  83. 680    K$="U2  H3U5r2f2g1l1h1f1r1e1h2u2r2f2g1l1h1f1r1e1 h3H5U1E1R1F6U7E1R1F1D7 D1    F3  R1L2H4L1G1D2F3H3U2E1R1F4R2F1D4G2D2
  84. 710  DRAW "C3":DRAW K$
  85. 715  RETURN
  86. 720  CLS:DRAW "S14"
  87. 730   L1$="U3H3U6E1R2D2G1L1H1F1R1E1U3E1R2D4G1L1H1F1R1E1U4E1R2D5G1L1H1F1R1E1"
  88. 740   L2$="  U11E1R1F1D11F2R2E1R3D1G4L2d1g2d2
  89. 750   L$=L1$+L2$
  90. 760  DRAW "C3":DRAW L$
  91. 770  RETURN
  92. 780  CLS:DRAW "S14"
  93. 790   M1$="U3H3U6E1R2L1 H1R2D1D2G1L1H1F1R1E1U3E1R2D4G1L1H1F1R1E1U4E1R2D5G1L1H1F1R1E1"
  94. 800  M2$="U5E1R1F1D4G1L1H1F1R1E1U3R2F2D3G2D2G3D3
  95. 810   M$=M1$+M2$
  96. 820  DRAW "C3":DRAW M$
  97. 830  RETURN
  98. 840  CLS:DRAW "S14"
  99. 850   N1$="U3H3U6E1R2       D2G1L1H1F1R1E1U3E1R2D4G1L1H1     F1R1E1 U1H2  R2D2U3E1R2D6G1L1H1U2D2F1R1E1"
  100. 860  N2$="U5E1R1F1D4G1L1H1F1R1E1U3R2F2D3G2D1G2D3
  101. 870   N$=N1$+N2$
  102. 880  DRAW "C3":DRAW N$
  103. 890  RETURN
  104. 900  CLS:DRAW "S14"
  105. 910  O1$="U3H3U6E2R2F2D1G1H1F1E1U1H2U1E1R1F2D1G1E1U1H2E1R1F3D2G1L1H1F1R1E1U2H1F0R1F2D1 D2L2U1H1G1L1G1D2"
  106. 920   O2$="R1F1R1E1U2R1F1D3G3D3"
  107. 930   O$=O1$+O2$
  108. 940  DRAW "C3":DRAW O$
  109. 950  RETURN
  110. 960  CLS:DRAW "S14"
  111. 970    P$="U3L1H3R2E1U1L3D2U2R3E1U2L5D1F2H1R2L2U1U1G5L1H1U1 E6R3L11H1U1E1R16F3L11F3R4F2H2L4H3R12F4D4G3D2":'G1E1F2D3G2D4
  112. 1000  DRAW "C3":DRAW P$
  113. 1010  RETURN
  114. 1020  CLS:DRAW "S14"
  115. 1030   Q$="U4  H2E2G2L2G1D2G1L1H1U4H1L1G1D5G1L1H1U9E4R10F5D10
  116. 1060  DRAW "C3":DRAW Q$
  117. 1070  RETURN
  118. 1080  CLS:DRAW "S14"
  119. 1090   R$="U2l1H3U5r2f2g1l1h1f1r1e1h2u2r2f2g1l1h1f1r1e1h5u1e1r1f1u2e1r1f1d4h2f6l3g1d1f1r2l2h1u1e1r4f1d4g2d3
  120. 1120  DRAW "C3":DRAW R$
  121. 1130  RETURN
  122. 1140  CLS:DRAW "S14"
  123. 1150  S1$="U3H3U6E1R2D2G1L1H1F1R1E1U3E1R2D4G1L1H1F1R1E1U4E1R2D5G1L1H1F1R1E1"
  124. 1160  S2$="U4E1R1F1D3G1L1H1F1R1E1U1F2L7F2R1L1H2R7D4G3D3"
  125. 1170  S$=S1$+S2$
  126. 1180  DRAW "C3":DRAW S$
  127. 1190  RETURN
  128. 2000  CLS:DRAW "S14"
  129. 2010  T1$="U3H3U6E1R2D2G1L1H1F1R1E1U3E1R2D4G1L1H1F1R1E1U4          E1R2D5G1L1H1F1R1E1"
  130. 2020  T2$="U4H2R2D1 E1R1F1D3G1L1H1F1R1E1U1F2            D5G3D4"
  131. 2030  T$=T1$+T2$
  132. 2040  DRAW "C3":DRAW T$
  133. 2050  RETURN
  134. 2060  CLS:DRAW "S14"
  135. 2070   U$="U2  H3U5r2f2g1l1h1f1r1e1h2u2r2f2g1l1h1f1r1e1 h3U7E1R1F1D7U6e1r1f1d6  F3  l3g1d1f1r2l2h1u1e1r4f1d5g2d2
  136. 3000  DRAW "C3":DRAW U$
  137. 3010  RETURN
  138. 3020  CLS:DRAW "S14"
  139. 3030   V$="U2  H3U5r2f2g1l1h1f1r1e1h2u2r2f2g1l1h1f1r1e1 h3H5U1E1R1F6E6R1F1D1G5D1    F2  l4g1d1f1r2l2h1u1e1r5f1d3g3d3
  140. 3060  DRAW "C3":DRAW V$
  141. 3070  RETURN
  142. 3080  CLS:DRAW "S14"
  143. 3090  W1$="U2  H3U5r2f2g1l1h1f1r1e1h2          E1H4U1E1R1F4U5E1R1F1D5E5R1F1D1G5              F1  l3g1d1f1r2l2h1u1e1r4f1d5g2d2
  144. 4000  W2$="
  145. 4010  W$=W1$+W2$
  146. 4020  DRAW "C3":DRAW W$
  147. 4030  RETURN
  148. 4040  CLS:DRAW "S14"
  149. 4050   X$="U2  H3U5r2f2g1l1h1f1r1e1h2u2r2f2g1l1h1f1r1e1h2 u1e1r1f2d1g1l1h1f1r1e1u1u7e1r1f1 d1g1l1h1f1r1e1d6F2  l3g1d1f1r2l2h1u1e1r4f1d5g2d2
  150. 4080  DRAW "C3":DRAW X$
  151. 4090  RETURN
  152. 5000  CLS:DRAW "S14"
  153. 5010  Y1$="U3H3U10E1R1F1D4E1R2D4G1L1H1U2D2F1R1E1U4E1R2D5G1L1H1F1R1E1
  154. 5020  Y2$="U4E1R1F1D3G1L1H1F1R1E1U1F1r1u2e1r1f1d5g4d3
  155. 5030  Y$=Y1$+Y2$
  156. 5040  DRAW "C3":DRAW Y$
  157. 5050  RETURN
  158. 5060  CLS:DRAW "S14"
  159. 5070  Z$="U2  H3U5r2f2g1l1h1f1r1e1h2u2r2f2g1l1h1f1r1e1h2 u1e1r1f2d1g1l1h1f1r1e1u1u7e1r1f1               d7F2  l3g1d1f1r2l2h1u1e1r4f1d5g2d2
  160. 5080  DRAW "C0":DRAW "M150,100":DRAW"C3":DRAW Z$:GOSUB 9000:DRAW "C0":DRAW "M150,100":DRAW "C0"
  161. 5090  DRAW Z$:DRAW "M100,100":DRAW "C3":DRAW Z$:GOSUB 9000:DRAW "C0M100,100":DRAW Z$
  162. 6000  DRAW "M150,150C3":DRAW Z$:GOSUB 9000:DRAW "C0M150,150":DRAW Z$
  163. 6010  DRAW "M100,150C3":DRAW Z$::GOSUB 9000:DRAW "C0M100,150":DRAW Z$
  164. 6015  DRAW "M150,100C3":DRAW Z$:GOSUB 9000
  165. 6020  RETURN
  166. 6050  PLAY "L64O3CDEFGAB>C"
  167. 6070  RETURN
  168. 6080  FOR X=130 TO 115 STEP -5
  169. 6090  SOUND X,2:NEXT:RETURN
  170. 7000  WR$(T)=CHR$(L(T)+64):RETURN
  171. 9000  FOR DL=0 TO 1500+ZZ:NEXT:RETURN
  172.